home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / COMAL / T-COMAL Today / (k)t4.d64 / paddle.proc < prev    next >
Text File  |  2007-02-28  |  554b  |  19 lines
  1. 9000 //DELETE "0:PADDLE.PROC"
  2. 9010 // BY UNICOMAL WITH CAPTAIN COMAL
  3. 9020 //LIST   "0:PADDLE.PROC"
  4. 9030 // UPDATED VERSION - MATCHES 2.0
  5. 9040 PROC PADDLE(PAIR,REF X,REF Y,REF FIRE1,REF FIRE2) CLOSED
  6. 9050 CIA:=56320
  7. 9060 SID:=54272
  8. 9070 POKE CIA+13,1 //DISABLE TIMER A INTERRUPT
  9. 9080 DDRA:=PEEK(CIA+2)
  10. 9090 POKE CIA+2,192
  11. 9100 POKE CIA,64*PAIR
  12. 9110 X:=PEEK(SID+25); Y:=PEEK(SID+26)
  13. 9120 POKE CIA+2,DDRA
  14. 9130 POKE CIA+13,129 //ENABLE TIMER
  15. 9140 MEM:=PEEK(CIA+2-PAIR)
  16. 9150 FIRE1:=1-((MEM MOD 16) DIV 8)
  17. 9160 FIRE2:=1-((MEM MOD 8) DIV 4)
  18. 9170 ENDPROC PADDLE
  19.